sub yoursub
{
  my ($rangearrayref, $firstre, $secondre, $subref) = @_;
  ...
}

yoursub([2..7], 'NETPACKET', 'Network', \&transformNetpacketSub);