Select Code to Download

use strict;
no warnings;
...
my $var   = shift() - 1;

print join '', reverse @array[0..$var];

perl -le"@_=reverse a..j;print join'',reverse@_[0..shift()-1]" 5