<% for (my $n = 1; $n <= $room_max * $room_count; $n++) { %> <%= $settings->{$n}->{'formatted_name'} || $n %>
<% foreach my $mov ( keys %{$movements} ) { %> {$mov}->{'mov'} eq $settings->{$n}->{'movement'}) { %>selected<% } %> value="<%= $movements->{$mov}->{'mov'} %>"><%= $movements->{$mov}->{'formatted_name'} %> <% } %>

<% if ($n % 3 == 0) { %>
<% } %> <% if ($n % 6 == 0) { %>
<% } %> <% } %>

IP: <%= $teletype->{'ip'} %>
Mac: <%= $teletype->{'mac'} %>

Update