#! /usr/bin/perl

$file_input = "input";

open(IN, $file_input) || die "can't open $file_input : $!\n";
while(<IN>)
{
        $line =$_;
        if($line =~ /^(.*) (\d+)$/)
        {
                $data[$#data ++ ] = $1;
        }

}
close(IN);

$file_output = "output";
open(OUT, ">".$file_output) || die "can't open $file_output : $!\n";
for($i = 0; $i <= $#data; $i ++)
{
        print OUT $data[$i]. "\n";
}
close(OUT);

##</code><code>##

47 58
320 52
410 59
1 200
42 58