open( INPUT, "$folder/$file" ) or die("Could not open $file file"); while ( my $line = ) { next if ( $line =~ m/show port/ ); if ( $line =~ m/Count:\s+(\d+)/ ) { $checks{port}{$stage} = $1; } next if ( $line =~ m/show router interface/ ); if ( $line =~ m/Count:\s+(\d+)/ ) { $checks{l3}{$stage} = $1; } }