foreach (@vars) {
{ print $_->{num}, '||', $_->{txt}, "\n"; }