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"]