sub getvalue1{
    my ($e, $t) = @_;
    print "$e : $t\n";
}