my @array = 1 .. 40; 
print $_ for @array[-19 .. 0];