use warnings;
use strict;

my %variable_table = ( INT => 5, STR => 'HOME',);

while (1) {
    print "What would you want to know: ";
    chomp( my $type = <STDIN> );
    last if $type eq 'exit';
    if ( exists $variable_table{$type} ) {
        print $type, ' : ', $variable_table{$type}, $/;
    }
    else { next; }
}