#!usr/bin/perl -w
use strict;

my @list = (26, 3, 53, 65, 9, 101, 19);
@list = sort( @list );
min_str();
max_str();

sub min_str {

print "n\";

print "$list[0]\n";

}

sub max_str {

print "$list[7]\n";

}