my @a = ( 4, 1, 3, 2 );
my @b = sort @a;
print shift @b;