oreore-oredayo.pl

package Oreore;
use Data::Dumper;

sub oredayo {
    my $args = [@_];
    {
        local @{caller.'::_'} = (qw/hoge piyo/);
        print Dumper($args); ### => ['foo', 'bar']
        print Dumper([@_]);  ### => ['hoge', 'piyo']
    };
    print Dumper([@_]);      ### => ['foo', 'bar']
}

package main;

Oreore::oredayo('foo', 'bar');