in reply to passing the reference from a class.

As you don't show us in what way Perl "does not want" to dump the second one, it's kinda hard to guess what happens in the code you've omitted. But there is one line that doesn't do what you might think it does:

sub create {
    my $self = @_;
...

[download]

Here, $self will likely have the value 1, because that's the number of elements in @_. If you want to assign the first value in @_ to $self, you need parentheses:

    my ($self) = @_;

[download]

Replies are listed 'Best First'.
Re^2: passing the reference from a class.
by baxy77bax (Deacon) on Jul 20, 2008 at 20:04 UTC
    sory the message is :

    can't use string ("\%hashsecond") as a HASH reference while "strict refs" in use

    i mean it is obvious but i don't know why aoes dthi happen only the second time

    and thanks for the tip it is a typo :)

[reply]

      It works as it should for me:

      use strict;

sub create {

    my $self = @_;
    my (%hash1,%hash2);

    my @vi = qw(\%hash1 \%hash2);

    return @vi;
}


my @array = create();

#i did the separation of variables on purpose ...
 
my $first = $array[0];
my $second = $array[1];
my %hashfirst = %$first;
my %hashsecond = %$second;

__END__

Can't use string ("\%hash1") as a HASH ref while "strict refs" in use 
+at tmp.pl line 20.

      [download]

      This is because you're returning strings instead of references:

          my @vi = qw(\%hash1 \%hash2);

      [download]
      should be 
          my @vi = (\%hash1, \%hash2);

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom