use Env qw[ PATH @PATH ];
@PATH = qw/ as df ef gh /;
die $PATH;
__END__
as;df;ef;gh at - line 3.