@toy = ("Jan","Feb","Mar","Apr");

&search_database(@toy);

sub search_database{

  my $search_for = $_[0];
  open(DB, $database) or die "Error opening file: $!\n";
    while(<DB>){
      if($search_field =~ /all/i){
        if(/$search_for/oi){push @results, $_};
    } else {
         ($key,@field_vals) = split(/\::/, $_);
        if($field_vals[$search_field] =~ /$toy/oi){push @results, $_};
      } # End of else.
    } # End of while.
  close (DB);
} # End of search_database subroutine...