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