$templ = 'A4 v d';;

@fields = ( 'fred', 12345, 123.456 );;

$record = pack $templ, @fields;;

print unpack $templ, $record;;
fred 12345 123.456