#!/usr/bin/perl

$file = $ARGV[0];

open(FILE, "$file") || die "Error, can't open $file file: $!\n";

@input = <FILE>;

$largest_value = 0;
$second_value = 0;

for($i = 0; $i < @input; $i++)
{

    $value = substr($input[$i], 0, 6);

    if($value > $largest_value)
    {
	$largest_value= $value;

    }

    if(($value > $second_value) && ($value < $largest_value))
    {
	$second_value = $value;
	   
    }

}
print "$largest_value $second_value\n";