my %reposlist =
  map { lc $_->{'full_name'} =~ s|^${user}/||r => $_ } @$reposinfo;
print "Repos: " . join( ",", keys %reposlist ) . "\n";