perl -MO=Deparse -n -e '@a = <>; END{ print @a; } '
LINE: while (defined($_ = <ARGV>)) {
    @a = <ARGV>;
    sub END {
        print @a;
    }
    ;
}

##</code><code>##

echo -e '55\n44\n33\n22\n11\n' | perl -n -e '@a = ($_,<>); END{ print @a; } '