#!/usr/bin/perl
use strict;
use diagnostics;

my (%ticker, %portfolio);
my @stock_names = ('Derpco', 'Tetrabytz', 'Mojo inc', 'Freke', 'Mega');
@portfolio{@stock_names} = (0) x @stock_names;
@ticker{@stock_names} =
        map {   price       => generate_random(10, 100),
                volitility  => int(rand(7)) * 5 + 5 }, @stock_names;

my $goal = query_user( qq|\nWhat Goal In Cash Do You Want To Set? :| );
notify_user( qq|Thanks\n\n| );

my $date    = 0;
my $cash    = generate_random(500, 1000);

sub generate_random {
    my ($start, $end) = @_;
    return int( $start + rand($end - $start + 1) );
}

sub query_user {
    notify_user(@_) if @_;
    chomp (my $answer = <STDIN> );
    return $answer;
}

sub notify_user {
    return print @_;
}