$num_elements = unshift(array, $prepend_data); #!/usr/bin/perl -w # Uses unshift with ARGV. $prepend_data = "PREPENDED"; $num_elements = unshift(@ARGV, $prepend_data); # Display arguments. foreach $i (0 .. $#ARGV) { print "$ARGV[$i]\n"; } print "Total elements = $num_elements.\n";