print "Enter a string: ";
my $string = <>;
print "Enter an integer: ";
my $integer = <>;