foreach my $screen (  @screens  ) {
    no strict 'refs';
    $screens{$screen}= \&$screen;
}