sub globlist {
  my @back;

  foreach my $elem (@_) {
    push @back, (glob $elem);
  }

  return @back;
}