my @array = map { (split(/^-/,$_))[0] . (split(/^-/,$_))[1] } @ARGV;