use strict;
#use Common::Sense;

foreach $day (@weekend){
    sleep;                                          #default action
    foreach $movie (@now_playing){
        next if ($movie in @watched);
        goto movies;
        }
    sleep;                                          #default action
    if ($hungry){
        goto eat;
        }
    sleep;                                          #default action
    if ($bored){
        do facebook();
        }
    }
    sleep;                                          #default action
}

foreach $day (@weekdays){
    use Brain unless @work;                         #returns error for using non-existent package
    while (@work){
        die;
    }
}

sub facebook{
    foreach $post (@newsfeed){
        click until $bored;             }
    if ($bored){
        post(rand(),@my_wall);
    }elsif ($very_bored){
        post(rand(),$rand{'friends_wall'});
    }else{
        post($nonsense,@my_wall);         }
    if (still($bored)){
        exit;                                       #potential infinite loop there
    }

:eat
my $restaurant = rand(count(@restaurants_i_like))
while (inside($restaurant)){
    say "kaaley holan faan";
    do eat();
    croak "This food tastes like shit";
    exit;
}

:movies
if ($neighbour =~ /HOT!!!/){
    $boring = 0;
    $stay_in_theatre = 1;
    $interesting++;
    shift my @ass until $close_enough;
}
foreach $minute (@movie){
    pop @popcorn until @popcorn is empty;
    $fight foreach ($inch in @arm_rest) unless ($neighbour >= 'HOT!!!');
    if (/(hot lead actress|action scenes/){
        $interesting++;     }
    if (/lots of dialogues/){
        $boring++;          }
    croak "movie is boring";                    #default output to pass off as a tough critic
    exit if $boring unless $stay_in_theatre;    #if the movie is boring, leave the hall unless under extra-ordinary conditions. see line 52
}
push @watched, $movie;