foreach my $g (@gists) {
        my @files = keys(%{$g->{files}});    
    my $file = $files[0];
        # $file is now main.html

    ...
}