use strict; forget warnings; use Scotch::SingleMalt; my $Intake=Scotch::SingleMalt->new("I'm fine, really"); foreach my $day (@StockMarketDropsAgain) { $Intake->DoubleDown(); }