#!/usr/local/bin/perl
use strict;

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

while (my $line = <IN>){
    my @age;
    my ($name, $personsage) = split(",",$line);
    @age = split("\n",$personsage);
    @sorted_ages = sort {$b <=> $a} @age;
}
close (IN);

foreach my $a (@sorted_ages){
	print $a;
}