What is this doing, and why is this a good method of doing it?

[japhy]

use strict;

my @x = somefunction();

for (@x) {
  *{;
  no strict 'refs';
  \*$_} = sub {
    # ...
  };
}