#!/usr/bin/perl -w
use strict;

my %allowed;
my %file;

my ( $foo, $bar, $baz ) = ( 'foo', 'bar', 'baz' );
my $eol = "\n";

$allowed{ \$foo } = 'a';
$allowed{ \$bar } = 'a';
$allowed{ \$baz } = 'b';
$allowed{ \$eol } = 'b';
$file{ 'a' } = *STDERR;
$file{ 'b' } = *STDOUT;

sub rp {
    my $fh = shift;
    for ( my $i = 0; $i < @_; $i++ ) {
        if ( $fh eq $file{ $allowed{ \$_[$i] } } ) {
            print $_[$i];
        } else {
            print "\nAttempt to print unallowed data using restricted print\n";
        }
    }
}

rp (*STDERR, $foo, $bar, $baz, $eol );
rp (*STDOUT, $foo, $bar, $baz, $eol );