A script that suggest stocks based on user input in Perl