#! perl
use strict;
use warnings;

my @gists = (
                {
                    files =>
                    {
                        'main.html' => 
                        {
                            language => 'HTML',
                            filename => 'main.html',
                            type     => 'text/html',
                            size     =>  713,
                            raw_url  => 'THIS IS WHAT I WANT'
                        }
                    }
                }
            );

foreach my $g (@gists)
{
    my @files = keys(%{$g->{files}});
    my $file  = $files[0];

    print $g->{files}->{$file}->{raw_url};
}