my ($localname1, $ln2, $ln3)= @original{qw/name1 name2 name3/};