You can use shift or read from @ARGV like so...

use strict;

my $arg = shift;

my @args = @ARGV;

print "$arg\n";

foreach (@ARGV) {
    print $_, "\n";
}
[download]

Hope that helps :).