#! /usr/bin/perl -l
use strict;
use warnings;

sub exchange_values {
    # tausche inhalte  des ersten und zweiten elements mit Hilfe des @_ (Alias)
    @_[0,1] = @_[1,0];
}

my $hello = 'World!';
my $world = 'Hello ';

# kontrolle; so ist's jetzt
print $hello, $world;

exchange_values( $hello, $world );

# ups; das war eben noch anders
print $hello, $world;