diff --git a/process/projects/get_csv.pl b/process/projects/get_csv.pl
index 29a4311..f751391 100644
--- a/process/projects/get_csv.pl
+++ b/process/projects/get_csv.pl
@@ -77,7 +77,7 @@ sub process
 
     for my $login (keys %grades) {
 	$out .= "$login";
-	my @ugrades = \$grades{$login};
+	my @ugrades = @{ $grades{$login} };
 	for my $header (@headers)
 	{
 	    my $g = shift @ugrades;