use Env '@PATH';

...

    for my $pathdir ( @PATH ) {

...