my %vals;
@vals{ qw( ip name proto email ) } = /^.../;