Re: weird return

[Brent Clark]

Brent Clark wrote:

Hi list

I have my code as so:

for my $roomCode ( keys %{ $ref_hash->{$fileName} } ){
    my $roomName =  $ref_hash->{$fileName}{$roomCode};

    if( $pCode eq 'p110'){
        if ($p110rm01 eq $roomName ){
            $finalHash{$fileName}[0] = $roomName;

my Data::Dumper return as so:

Hi list

This is soo weird because I have it more then once:

$VAR1 = {
          'Alph02' => [
                        'Chalet'
                      ],
          'Grac01' => [
                        ${\$VAR1->{'Mabu01'}[0]},
                        'Suite',
                        'Penthouse'
                      ],
          'Elle01' => [
                        'Standard Room (no-seaview) (Rm6)',
                        ${\$VAR1->{'Mabu01'}[0]},
                        ${\$VAR1->{'Mabu01'}[0]},
                        'Ellerman Suite (Suite 7)',
                        'East Wing Suite (Suite 11)'
                      ],
          'Vine01' => [
                        ${\$VAR1->{'Mabu01'}[0]},
                        ${\$VAR1->{'Mabu01'}[0]},
                        'Mountain Facing Room',
                        'River Deluxe Suite',
                        'Courtyard Facing Suite',
                        'Mountain Facing Suite'
                      ],

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>