sub whatever {
    my %argument = @_;
    my $data = $argument{data};
    my $p = $argument{p};
    my $r = $argument{r};
    my $dbh = $argument{dbh};
    ...
}
whatever dbh => $dbh, data => "...", p => "...", r => "...";