my $unpack_tpl = "A20name A1sex A3age, A8salary, A12sign";
my %data = unpack2 $unpack_tpl, $string;