>perl -wMstrict -le
"my %jetsons = qw(aa 1  bb 2  cc 3  dd 4  ee 5);
 my ($min) = keys %jetsons;
 print $min;
"
cc