use strict;

  my %hash = ();
  foreach $value (@some_list) {
    my $key = make_some_key($value);
    $hash{$key} = $value;
  }