$|=1; # So it works in the Open Perl IDE

$start = time; # Get time at the start of the script

@a = (1..20000); # fill up an array
@b = sort @a; # sort it alphabetically
print "@b\n"; # print it to the screen (this takes the most time)

$end = time; # Get time at the end of the script

$t = $end - $start;
print "Your program ran for $t seconds.";
# It should run much faster on the terminal compared to the IDE!
