sub foo { pack 'P', $_[0] } foo pack 'P', $data;