use List::Util qw(min max);

@A = (53, 30, 12, 34, 65, 23, 21, 1, 23, 19);

$min=&min(@A);
$max=&max(@A);

print "$min, $max \n\n";