0123456789
123456789
23456789
3456789
456789
56789
6789
789
89
9

##</code><code>##

use strict;
use warnings;

my $sequence = "0123456789";
my @frames;

while ($sequence)
  {
  push @frames, $sequence;
  $sequence = substr $sequence, 1;
  }
  
print join "\n", @frames;