138494Sobrien#!/usr/bin/perl 238494Sobrien 338494Sobrienuse strict; 438494Sobrienuse warnings; 538494Sobrien 638494Sobrienuse Test::More tests => 2; 738494Sobrien 838494Sobrien{ 938494Sobrien use List::Util qw( first ); 1038494Sobrien 1138494Sobrien my $hash = { 1238494Sobrien 'HellO WorlD' => 1, 1338494Sobrien }; 1438494Sobrien 1538494Sobrien is( ( first { 'hello world' eq lc($_) } keys %$hash ), "HellO WorlD", 1638494Sobrien 'first (lc$_) perserves value' ); 1738494Sobrien} 1838494Sobrien 1938494Sobrien{ 2038494Sobrien use List::Util qw( any ); 2138494Sobrien 2238494Sobrien my $hash = { 2338494Sobrien 'HellO WorlD' => 1, 2438494Sobrien }; 2538494Sobrien 2638494Sobrien my $var; 2738494Sobrien 2838494Sobrien no warnings 'void'; 2938494Sobrien any { lc($_); $var = $_; } keys %$hash; 3038494Sobrien 3138494Sobrien is( $var, 'HellO WorlD', 3238494Sobrien 'any (lc$_) leaves value undisturbed' ); 3338494Sobrien} 3438494Sobrien