map { s/^-// } @ARGV;
print join ("\n", @ARGV) . "\n";

##</code><code>##

foo
bar

##</code><code>##

my @array = map { s/^-// } @ARGV; 
print join ("\n", @array) . "\n"; 

##</code><code>##

1
1