Array Perl

#!/usr/local/bin/perl 
@innerlist = " abc "; 
@outerlist = ("I", @innerlist, "fail!\n"); 
print @outerlist;