my $item = "UNKNOWN"; if ( $line =~ m/show port/ ) { $item = "port"; } if ( $line =~ m/show router interface/ ) { $item = "l3"; } if ( $line =~ m/Count:\s+(\d+)/ ) { $checks{$item}{$stage} = $1; }