#!/usr/bin/perl -wlan 

next if /OFFLINE/; # I want to only report the ones that have ONLINE

if ($F[0] eq 'B') {
    push @{ $groups{ $F[1] } }, $F[2];
}
if ($F[0] eq 'G') {
    print "$F[1] is frozen on hosts " . join ', ', @{ $groups{ $F[1] }
+ };
}
[download]