$ perl -MO=Deparse,-p -e 'my $map = match_maprow_by_hash $self( $first );' (my $map = $self->match_maprow_by_hash($first)); -e syntax OK