#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %status;

$status{print_1} = print STDERR "1\n";
$status{read}    = read STDERR, my $str, 10;
$status{print_2} = print STDERR "2\n";

print Dumper(\%status);