use strict;
use warnings;

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

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