c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @output = qw(OldTop Second Third);
 dd \@output;
 ;;
 unshift @output, 'NewTop';
 dd \@output;
 ;;
 my @otherarray = qw(uno dos tres);
 unshift @output, @otherarray;
 dd \@output;
"
["OldTop", "Second", "Third"]

["NewTop", "OldTop", "Second", "Third"]

["uno", "dos", "tres", "NewTop", "OldTop", "Second", "Third"]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @output = qw(OldTop Second Third);
 dd \@output;
 ;;
 @output = ('NewTop', @output);
 dd \@output;
"
["OldTop", "Second", "Third"]

["NewTop", "OldTop", "Second", "Third"]