use strict;
no warnings;

my @array = reverse 'a' .. 'j';
my $var   = shift() - 1;

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

##</code><code>##

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