Perl: zuviel return?

[opi]

Hallo Leute,

ich habe hier zwei Subs, bei denen ich mir nicht so sicher bin...

Für welchen würdet Ihr euch entscheiden? Oder gar einen völlig anderen schreiben?

[code lang=perl]sub bp_cookie_check1 {
   my $un;
   return unless my $ck=$ENV{'HTTP_COOKIE'};
   $ck=~s/\s|id=//g;
   my $ch=$ck;
   $ch=~s/\w+//;
   return if $ch;
   return unless open C,'<',"/tmp/anydir/$ck";
   $un=<C>;
   close C;
   return $un if -f "/etc/anydir/Profiles/$un";
   return;
}

sub bp_cookie_check2 {
   if(my $ck=$ENV{'HTTP_COOKIE'}) {
      $ck=~s/\s|id=//g;
      my $ch=$ck;
      $ch=~s/\w+//g;
      unless($ch) {
         if(open C,'<',"/tmp/anydir/$ck") {
            my $un=<C>;
            close C;
            return $un if -f "/etc/anydir/Profiles/$un";
         }
      }
   }
   return;
}[code]

Für einen Tipp wäre ich dankbar :-)

Greez,
opi