perl -we '
  use strict;
  sub fn {
    my @a = (7) if 0;
    push @a, @_;
    print "@a\n";
  }
  fn 1;
  fn 2;
'
1
1 2