I had attempted another try using

while (<$SN>) {
    next unless /^aixFsMountPoint|aixFsSize|aixFsFree/i;
    my(@tmp) = split("=", $_, 0);
    my ($id) = $tmp[0];
    my ($fs) = $tmp[1];
    $snmpo{$id} = $fs;
}
[download]

But I like the regexp way better! thx!!!