#!/usr/bin/perl

use strict;
use warnings;

my %prns;

for (<DATA>)
{
    my ( $num, $prn ) = split /\s/;
    $prns{$num} = $prn;
}

my @ord = sort { $b <=> $a } keys %prns;

print "Highest numbered printer is $prns{shift @ord}\n";

__DATA__
1 prt1
2 prt2
99 prt99
10 prt10
100 prt100
7 prt7