sub my_sub{
    my( $aname, $aref, $size, $name, $bref, $size ) = @_;
    print "Using $aname and $bname\n";
    ...
}