#!perl -l

my @seq = qw/ 1 2 3 4 5 6 7 8 9 0 /;

for (1 .. 5) {
    print "frame $_: ", getframe($_,@seq);
}

sub getframe {
    my ($n,@in) = @_;
    $n--;
    return join '', @in[ $n .. $#in ];
}

__END__

frame 1: 1234567890
frame 2: 234567890
frame 3: 34567890
frame 4: 4567890
frame 5: 567890
[download]