my @keyed_data = map { print qq{Number $_: }; scalar <> } (1 .. 5);

##</code><code>##

print sort { $a <=> $b } @keyed_data;

##</code><code>##

if ($a > $b {$bin = $b; $b = $a; $a = $bin;
print "nThis is line 1 $a $b \n";}

##</code><code>##

if ($a > $b {
    $bin = $b; $b = $a; $a = $bin;
    print "nThis is line 1 $a $b \n";
}