while (my ($key, $value) = each @ARGV)
{
  print "$value: $key\n"; # The key is the position
}