use Modern::Perl;
use autodie;

sub find_chores {
   return (8,456,310);
}

my $value =  find_chores();
say $value;