$ perl -Mstrict -Mwarnings -E '
    say "Hello, world!";
    populate_nums();
    report_nums();
    my @nums;
    sub populate_nums { push @nums => 0 .. 9 }
    sub report_nums { my @nums; say "@nums" }
'
Hello, world!