$ARGS{'qty2'} #### my @ids = map { /^podid(\d+)/ ; $1 } grep { /^podid\d+/ } keys %ARGS;