#!/usr/bin/perl
$I = "keep falling more in love with $perl";$because;

while (@work){$I; push @myself,$to,$write,$perl;}
while (@home){$I; push @myself,$to,$learn,$more,$perl;}