use strict;
my @a=("hans");
unshift(@a,("peter","fritz"));
print @a;

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

my @array = ("Hallo","Hi","Tag","Guten Tag","Gute Nacht");
my $y = "Perl ist toll";
my $x = "bayern ist spiessig";

splice(@array,0,0,$y,$x);
print $array[0] . $array[1];