$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";