$usernames{username} = { key1 => value1, ...};

##</code><code>##

foreach my $key (keys %usernames) {
  if($usernames{$key}->{Framed-Address} eq $ip_i_look_for) {
	print "ip $ip_i_look_for owned by user $key \n";
	last;
  }
}