my $cube = $xml->{Cube}->{Cube}; # arrayref
for my $item (@$cube) {
    my $time = $item->{time};
    my $rate_curr = $item->{Cube}; # noch eine arrayref
    for my $item (@$rate_curr) {
        my $rate = $item->{rate};
        my $curr = $item->{currency};

        # mach was mit $time, $rate und $currency
        # schreib es in ein array, ...
    }
}