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