Select Code to Download

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

foreach my $key (keys %usernames) {
  if($usernames{$key}->{Framed-Address} eq $ip_i_look_for) {
...
    last;
  }
}