Something like this would do the trick:

foreach (keys %$args) {
  # do something 
}
[download]

gav^