while ( <> ) {
    chomp;
    for my $i ( 0 .. $#pre ) {
        local $_ = $pre[ $i ] . $_;
        next if not -e;
        print;
        @pre[ 0 .. $i ] = @pre[ $i, 0 .. $i - 1 ] if $i;
        last;
    }
}