use strict;

my $file = "input.log";
my @sorted_ages;
open (IN, $file) or die "Couldn't open file '$file': $!";

while (my $line = <IN>) {
     chomp($line);
     my ($name, $age) = split(/,\s*/, $line);
     push @sorted_ages, $age;
}

close (IN);

@sorted_ages = sort { $b <=> $a } @sorted_ages;