%list = (
    "name"  => $name,
    "tel"    => $tel,
    "email" => $email );
    }
    push (@data, \%list);