my $funct  = sub($) {
        my $var = shift;
        my $var2 = $var =~ /red|green|blue/;
        $var2 = 'magenta' if ($var eq 'm');
        return $var2;
    };