use Super::Unpack; my ($foo,$lola,$glarb) = super_unpack ('int int MyType'); my ($foo,$lola,$glarb) = super_unpack (qw [ int int MyType]); my ($foo,$lola,$glarb) = super_unpack (@spec); my ($foo,$lola,$glarb) = super_unpack ('network unsigned int','short','MyType');